full_factorial Subroutine

public subroutine full_factorial(vars, tbl)

Computes a table with values scaled from 1 to N describing a full-factorial design.

program example
    use iso_fortran_env
    use fstats
    implicit none

    ! Local Variables
    integer(int32) :: i, vars(3), tbl(24, 3)

    ! Define the number of design points for each of the 3 factors to study
    vars = [2, 4, 3]

    ! Determine the design table
    call full_factorial(vars, tbl)

    ! Display the table
    do i = 1, size(tbl, 1)
        print *, tbl(i,:)
    end do
end program

The above program produces the following output.

1           1           1
1           1           2
1           1           3
1           2           1
1           2           2
1           2           3
1           3           1
1           3           2
1           3           3
1           4           1
1           4           2
1           4           3
2           1           1
2           1           2
2           1           3
2           2           1
2           2           2
2           2           3
2           3           1
2           3           2
2           3           3
2           4           1
2           4           2
2           4           3

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: vars(:)

An M-element array containing the M factors to study.
Each of the M entries to the array is expected to contain the number of options for that particular factor to explore. This value must be greater than or equal to 1.
integer(kind=int32), intent(out) :: tbl(:,:)

A table where the design will be written. Use get_full_factorial_matrix_size to determine the appropriate table size.